*******************************************************************************
* Load and append data sets
*******************************************************************************

use dataset_gallup, clear
append using dataset_anes
append using dataset_gss

*******************************************************************************
* Figure
*******************************************************************************

#delimit;

gr tw
	(sc confidenceAll year, col(black) msize(medsmall))
	(sc ftAll year, col(black) msym(Oh) msize(medsmall))
	(sc spend_lawenfAll year, col(black) msym(th))
	(lfit confidenceAll year, lwid(medthick) col(black))
	(lfit ftAll year, lpat(dash))
	(lfit spend_lawenfAll year, lpat(shortdash) col(black) lwid(thick))
	, 	
		ylab(, angle(horiz))
		legend(off)
		plotregion(style(none))
		ytitle("Proportion (Gallup/GSS) / Mean rating (ANES)")
		xtitle("")
		xlab(1960(10)2020)
		xscale(range(1994 2045))
		text(0.71 2035 "Police feeling thermometer (ANES)", 
			size(vsmall))
		text(0.55 2033 "Confidence in police (Gallup)",
			size(vsmall))
		text(0.47 2035 "Too little spent on law enf (GSS)",
			size(vsmall))
		;
		
#delimit cr

*******************************************************************************
* Export
*******************************************************************************

gr export "_output/figure1.eps", replace

*******************************************************************************
* End
*******************************************************************************
